home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
daten
/
aspell
/
doc
/
register
< prev
next >
Wrap
Text File
|
1995-08-29
|
2KB
|
110 lines
; Registration script for AlphaSpell
; Copyright (c) 1995 Fergus Duniho
(set file
(tackon
(askdir
(prompt
"This is not an installation script. It just takes advantage of "
"the Installer program to create a registration form for "
"AlphaSpell. Where do you want this form to go?"
)
(help @askdir-help)
(default "RAM:")
)
"Registration-Form"
)
)
(set name
(askstring
(prompt "What is your name?\nE.g. Fergus Duniho")
(help @askstring-help)
)
)
(set email
(askstring
(prompt "What is your email address?\nE.g. fdnh@troi.cc.rochester.edu")
(help @askstring-help)
)
)
(set response
(askchoice
(prompt "What country do you live in?")
(help @askchoice-help)
(choices "United States" "Canada" "Other")
)
)
(if (= response 0) (
(set country "USA")
(set state
(askstring
(prompt "What state do you live in?")
(help @askstring-help)
)
)
))
(if (= response 1) (
(set country "Canada")
(set state
(askstring
(prompt "What province do you live in?")
(help @askstring-help)
)
)
))
(if (= response 2)
(set country
(askstring
(prompt "What country do you live in?")
(help @askstring-help)
)
)
)
(set zipcode
(askstring
(prompt "What is your zipcode?\nE.g. 14611-4148")
(help @askstring-help)
)
)
(set city
(askstring
(prompt "What is the name of your city?\nE.g. Rochester")
(help @askstring-help)
)
)
(set address
(askstring
(prompt
"What is your box number or street address?\n"
"E.g. 1095 Genesee St."
)
(help @askstring-help)
)
)
(run
(cat
"echo >" file " \"Please mail this form to:*n*n"
"Fergus Duniho*n1095 Genesee St.*nRochester, NY 14611-4148*n*n"
"Enclosed is $20.00 for the keyfile to AlphaSpell.*n"
"Please send it to:*n*n" name "*n" email "*n"
address "*n" city ", " state " " country " " zipcode "\""
)
)
(message
"The completed registration form is called " file ". Print it out "
"and mail it to me to register AlphaSpell."
)
(exit (quiet))